set wshs = WScript.CreateObject( "WScript.Shell" )
regentry = "HKCU\SOFTWARE\Red Hook Studios\Darkest Dungeon\firstroombattle"

On Error Resume Next
default = wshs.RegRead( regentry )
On Error Goto 0

monster = InputBox( "Enter name of monster to place in first room:", "Create Monster", default )
wshs.RegWrite regentry, monster, "REG_SZ"

commandline = "Darkest -size 1600 900 -firstroombattle " + monster
wshs.Run( commandline )
